﻿Public Class comboItem
    Public Sub New(text As String, value As String)
        Me.Text = text
        Me.Value = value
    End Sub
    Public Property Text() As String
        Get
            Return m_Text
        End Get
        Set(value As String)
            m_Text = value
        End Set
    End Property
    Private m_Text As String
    Public Property Value() As String
        Get
            Return m_Value
        End Get
        Set(value As String)
            m_Value = value
        End Set
    End Property
    Private m_Value As String
End Class

Public Class Student
    Dim _stdID As String
    Dim _stdName As String
    Dim _stdAddress As String
    Dim _stdCity As String
    Dim _stdPhoneMobile As String
    Dim _stdPhoneHome As String
    Dim _stdPhoneOffice As String

    Public Property stdID() As String
        Get
            Return _stdID
        End Get
        Set(ByVal value As String)
            _stdID = value
        End Set
    End Property

    Public Property stdName() As String
        Get
            Return _stdName
        End Get
        Set(ByVal value As String)
            _stdName = value
        End Set
    End Property

    Public Property stdAddress() As String
        Get
            Return _stdAddress
        End Get
        Set(ByVal value As String)
            _stdAddress = value
        End Set
    End Property

    Public Property stdCity() As String
        Get
            Return _stdCity
        End Get
        Set(ByVal value As String)
            _stdCity = value
        End Set
    End Property

    Public Property stdPhoneMobile() As String
        Get
            Return _stdPhoneMobile
        End Get
        Set(ByVal value As String)
            _stdPhoneMobile = value
        End Set
    End Property

    Public Property stdPhoneHome() As String
        Get
            Return _stdPhoneHome
        End Get
        Set(ByVal value As String)
            _stdPhoneHome = value
        End Set
    End Property

    Public Property stdPhoneOffice() As String
        Get
            Return _stdPhoneOffice
        End Get
        Set(ByVal value As String)
            _stdPhoneOffice = value
        End Set
    End Property
End Class

Public Class User
    Dim _usrID As String
    Dim _usrName As String
    Dim _usrPassword As String

    Public Property usrID() As String
        Get
            Return _usrID
        End Get
        Set(ByVal value As String)
            _usrID = value
        End Set
    End Property

    Public Property usrName() As String
        Get
            Return _usrName
        End Get
        Set(ByVal value As String)
            _usrName = value
        End Set
    End Property

    Public Property usrPassword() As String
        Get
            Return _usrPassword
        End Get
        Set(ByVal value As String)
            _usrPassword = value
        End Set
    End Property
End Class

Public Class AccessModule

End Class